#!/usr/bin/perl

use strict;
use File::Find;

my @files;
find(sub {
         push @files, $File::Find::name;
         }, $ARGV[0]);

for my $file (@files) {
    print "$file\n";
}
